home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 24 / Mac Magazin and MacEasy Magazine CD - Issue 24.iso / Grafik & Text / Painter 4.0 / Painter 4.0 demo / Painter 4.0 demo.rsrc / STR#_5.txt < prev    next >
Text File  |  1996-01-05  |  3KB  |  271 lines
  1. %%DocumentData: Binary
  2.  
  3.  
  4. %%DocumentData: Clean8Bit
  5.  
  6.  
  7. %%Extensions: CMYK
  8.  
  9.  
  10. dopic
  11.  
  12.  
  13. save
  14. restore
  15.  
  16.  
  17. %%EndComments
  18.  
  19.  
  20. %%%%BlackPlate:%s
  21.  
  22.  
  23. %%%%YellowPlate:%s
  24.  
  25.  
  26. %%%%MagentaPlate:%s
  27.  
  28.  
  29. %%%%CyanPlate:%s
  30.  
  31.  
  32. %%DocumentProcessColors: Black
  33.  
  34.  
  35. %%DocumentProcessColors: Yellow
  36.  
  37.  
  38. %%DocumentProcessColors: Magenta
  39.  
  40.  
  41. %%DocumentProcessColors: Cyan
  42.  
  43.  
  44. %%DocumentProcessColors: Cyan Magenta Yellow Black
  45.  
  46.  
  47. %%SuppressDotGainCompensation
  48.  
  49.  
  50. %%%%BoundingBox: 0 0 %d %d
  51.  
  52.  
  53. %%%%CreationDate: %s %s
  54.  
  55.  
  56. %%%%Title: %s
  57.  
  58.  
  59. %%Creator: Painter Version 2.0
  60.  
  61.  
  62. %!PS-Adobe-3.0 EPSF-3.0
  63.  
  64.  
  65. grestore end
  66.  
  67.  
  68. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  69.  
  70.  
  71. pixwidth pixheight scale
  72.  
  73.  
  74.   {currentfile picstr readstring pop} false 3 colorimage
  75.  
  76.  
  77.   {currentfile picstr readhexstring pop} false 3 colorimage
  78.  
  79.  
  80.   {currentfile picstr readhexstring pop} false 4 colorimage
  81.  
  82.  
  83.   {currentfile picstr readhexstring pop} image
  84.  
  85.  
  86. gsave 0 %d translate 1 -1 scale
  87.  
  88.  
  89. (Painter file: %s: %s %s: %s plate) show
  90.  
  91.  
  92. AM
  93.  
  94. PM
  95.  
  96. 0 setgray %f %f moveto
  97.  
  98.  
  99. 1 setgray %f %f moveto (K50) show
  100.  
  101.  
  102. 0 setgray %f %f moveto (C45 M55 Y65) show
  103.  
  104.  
  105. 1 setgray %f %f moveto (C50 M50 Y60) show
  106.  
  107.  
  108. 0 setgray %f %f moveto (C50 M50 Y50) show
  109.  
  110.  
  111. black
  112.  
  113. yellow
  114.  
  115. magenta
  116.  
  117. cyan
  118.  
  119. (K) show
  120.  
  121.  
  122. (Y) show
  123.  
  124.  
  125. (M) show
  126.  
  127.  
  128. (C) show
  129.  
  130.  
  131. 1 setgray %f %f moveto
  132.  
  133.  
  134. currentfont [1 0 0 -1 0 0] makefont setfont
  135.  
  136.  
  137. 0 setgray newpath %f %f moveto lbox
  138.  
  139.  
  140.   bwx 6 mul neg 0 rlineto closepath fill } def
  141.  
  142.  
  143. /lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto
  144.  
  145.  
  146. /picstr width %d mul string def
  147.  
  148.  
  149. } def
  150.  
  151.  
  152. /sproc%c {
  153.  
  154. 1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale
  155.  
  156.  
  157. %f setgray newpath %f %f moveto lbox
  158.  
  159.  
  160. %f %f /sproc%c load setscreen
  161.  
  162.  
  163. %f %f /sproc%c load %f %f /sproc load setcolorscreen
  164.  
  165.  
  166. %f %f /sproc%c load %f %f /sproc%c load
  167.  
  168.  
  169. /dopic
  170. {  width height 8
  171.   [width 0 0 height neg 0 height]
  172.  
  173.  
  174. %d %d translate %f %f scale 1 -1 scale 0 %d translate
  175.  
  176.  
  177. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  178.  
  179.  
  180. {} {} {} {} setcolortransfer
  181.  
  182.  
  183. /picstr %d string def
  184.  
  185.  
  186. /pixheight %d def
  187.  
  188.  
  189. /pixwidth %d def
  190.  
  191.  
  192. /height %d def
  193.  
  194.  
  195. /width %d def
  196.  
  197.  
  198. gsave
  199.  
  200.  
  201. grestore
  202.  
  203.  
  204. gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale
  205.  
  206.  
  207. dopic
  208.  
  209.  
  210. gsave %d %d translate width fact mul height fact mul scale
  211.  
  212.  
  213. } def
  214.  
  215.  
  216. {currentfile picstr readstring pop} image
  217.  
  218.  
  219. {currentfile picstr readstring pop} false 4 colorimage
  220.  
  221.  
  222. width height 8 [width 0 0 height neg 0 height]
  223.  
  224.  
  225. {} settransfer
  226.  
  227.  
  228. {} {} {} {} setcolortransfer
  229.  
  230.  
  231. /dopic {
  232.  
  233.  
  234. /picstr width string def
  235.  
  236.  
  237. /width %d def /height %d def /fact %f def
  238.  
  239.  
  240. 40 dict begin gsave
  241.  
  242.  
  243. 1 setgray 
  244.  
  245. 0 setgray 
  246.  
  247. 0.5 setlinewidth
  248.  
  249.  
  250. %f setgray newpath %f %f moveto dobox
  251.  
  252.  
  253. bwx neg 0 rlineto closepath fill} def
  254.  
  255.  
  256. /dobox {bwx 0 rlineto 0 bhx neg rlineto
  257.  
  258.  
  259. /bhx %f def
  260.  
  261.  
  262. /bwx %f def
  263.  
  264.  
  265. newpath %f %f %f 0 360 arc closepath fill
  266.  
  267.  
  268. newpath %f %f moveto %f %f lineto stroke
  269.  
  270.  
  271.